home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 13 / Commodore_Disc_13_19xx_-_de.d64 / the red planet (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  20KB  |  549 lines
  1. 1 goto100
  2. 10 ************************************
  3. 20 ********** the red planet **********
  4. 30 ************************************
  5. 40 * copyright 1986 by dillingersoft **
  6. 50 ************************************
  7. 60 ************************************
  8. 70 *** written by robert dillinger ****
  9. 80 ************************************
  10. 85 ************************************
  11. 90 ************** loader **************
  12. 95 ************************************
  13. 100 poke53280,0:poke53281,0:print"[147][155]        willkommen zum loader von"
  14. 110 print"              the red planet":print
  15. 115 print"[154]    geschrieben von robert dillinger"
  16. 117 print"    copyright 1986 by dillingersoft"
  17. 120 print"      benuetzt du d[146]isk oder t[146]ape ?"
  18. 130 geta$:ifa$="d"thengoto200
  19. 140 ifa$="t"thengoto300
  20. 150 goto130
  21. 200 poke53247,8:print"                  disk"
  22. 205 print" schalte bitte die floppy nicht ab und"
  23. 210 print"lasse die diskette im laufwerk stecken ."
  24. 220 print:print"nachdem der hauptteil nachgeladen wurde,";
  25. 230 print" kannst du die diskette dann entfernen"
  26. 240 print"      und die floppy ausschalten ."
  27. 250 goto500
  28. 300 poke53247,1:print"                  tape"
  29. 310 print"am besten du laesst die 'play'-taste am"
  30. 320 print"recorder gleich an,denn dann brauchst du";
  31. 330 print" sie nach dem einlesen der daten nicht"
  32. 340 print"mehr zu betaetigen und es wird nach dem"
  33. 345 print"   einlesen automatisch nachgeladen ."
  34. 350 print" dieses vorgehen ist zu empfehlen, denn"
  35. 360 print" die zeit fuer's einlesen und nachladen"
  36. 370 print"    von tape ist ca 12 min. 50 sec."
  37. 380 print"du kannst ja dann ,anstatt vor dem bild-";
  38. 390 print"  zu warten, etwas anderes erledigen."
  39. 500 print"[153]           druecke eine taste[146]";
  40. 510 geta$:ifa$<>""thengoto600
  41. 520 goto510
  42. 600 print"[147]   brauchst du die anleitung (j[146]/n[146]) ?"
  43. 605 forf=1to100:nextf:poke198,0
  44. 610 geta$:ifa$="j"thengoto10000
  45. 620 ifa$="n"thengoto1000
  46. 630 goto610
  47. 900 stop
  48. 1000 rem ******************************
  49. 1010 rem ******* vic auf 3.block ******
  50. 1020 rem ******************************
  51. 1100 print"[147][144]":poke56576,149
  52. 1110 poke648,132
  53. 1200 rem ******************************
  54. 1210 rem ****** basic ende setzen *****
  55. 1220 rem ******************************
  56. 1230 poke55,0:poke56,127:clr
  57. 1300 rem ******************************
  58. 1310 rem **** zeichensatz auslesen ****
  59. 1320 rem ******************************
  60. 1321 sid=54272:n$="             den zeichensatz             "
  61. 1322 m$="              aus/neu ein":n$=n$+m$:pause=10:gosub19000
  62. 1323 a$="   wie du wahrscheinlich schon bemerkt"
  63. 1324 hoehe=10:pause=1:gosub19500
  64. 1325 a$="       hast, kann das noch dauern.":gosub19500
  65. 1326 print"":a$=" deshalb: abwarten und tee trinken ....":gosub19500:print
  66. 1327 a$="  dafuer gibt's beim hauptprogramm dann"
  67. 1328 gosub19500:print
  68. 1329 a$=" keine wartezeiten fuer's einlesen oder"
  69. 1330 gosub19500:print
  70. 1331 a$="         sonstige kinkerlitzchen."
  71. 1332 gosub19500
  72. 1335 poke56334,peek(56334)and254
  73. 1340 poke1,peek(1)and251
  74. 1350 forf=0to4095
  75. 1360 poke32768+2048+f,peek(f+53248)
  76. 1370 nextf
  77. 1380 poke1,peek(1)or4
  78. 1390 poke56334,peek(56334)or1
  79. 1400 poke53272,(peek(53272)and240)or2
  80. 1500 rem ******************************
  81. 1510 rem ****** zeichen einlesen ******
  82. 1520 rem ******************************
  83. 1530 restore:an=32768+2048+129*8
  84. 1540 forf=antoan+24*8-1
  85. 1550 readby:pokef,by:next
  86. 1560 an=32768+2048+109*8
  87. 1570 forf=antoan+12*8-1
  88. 1580 readby:pokef,by:next
  89. 1600 rem ******************************
  90. 1610 rem ****** sprites einlesen ******
  91. 1620 rem ******************************
  92. 1630 rem ******************************
  93. 1640 rem ***** einfarbige sprites *****
  94. 1650 rem ******************************
  95. 1660 n$="                 sprites                "
  96. 1670 m$="                   ein":n$=n$+m$
  97. 1680 pause=1:gosub19000
  98. 1690 a$="            the red planet :"
  99. 1700 hoehe=10:pause=1:gosub19500:print""
  100. 1710 a$="   ein actionspiel marke dillingersoft":gosub19500
  101. 1715 print
  102. 1725 print""
  103. 1730 a$="  unter staendiger qualitaetskontrolle":gosub19500
  104. 1735 print
  105. 1740 a$="           des programmierers .":gosub19500
  106. 1750 forf=32768+4096+4096to32768+4096+4096+10*64-1
  107. 1760 readby:pokef,by:next
  108. 1800 rem ******************************
  109. 1810 rem ***** multicolor sprites *****
  110. 1820 rem ******************************
  111. 1900 forf=32768+8192+640to32768+8192+640+8*64-1
  112. 1910 readby:pokef,by:next
  113. 2000 rem ******************************
  114. 2010 rem **** zusaetzliche sprites ****
  115. 2020 rem ******************************
  116. 2030 forf=32768+8192+640+8*64to32768+8192+640+8*64+14*64-1
  117. 2040 readby:pokef,by:next
  118. 2100 rem ******************************
  119. 2110 rem *** maschinenteil einlesen ***
  120. 2120 rem ******************************
  121. 2200 n$="              maschinencode             "
  122. 2210 n$=n$+m$
  123. 2220 gosub19000
  124. 2230 a$="              uebrigens :"
  125. 2240 hoehe=10:pause=1:gosub19500
  126. 2250 print:print:a$="             der autor ist"
  127. 2260 gosub19500:print:print
  128. 2270 a$="            robert dillinger"
  129. 2280 gosub19500:print
  130. 2290 a$="            von dillingersoft"
  131. 2300 gosub19500:print:print
  132. 2310 a$="dillingersoft programmiert auch auf dem"
  133. 2320 gosub19500:print
  134. 2330 a$="commodore c-16,atari 800xl und spektrum"
  135. 2340 gosub19500
  136. 2400 forf=49152to50333:readby:pokef,by:next
  137. 5000 rem ******************************
  138. 5010 rem ********* nachladen **********
  139. 5020 rem ******************************
  140. 5030 print"[147][144]";fre(0)
  141. 5040 print"[155]   ich lade jetzt den hauptteil nach."
  142. 5050 print"[158]ladezeit von ";
  143. 5060 ifpeek(53247)=8thenprint"disk : ca. 01 min. 15 sec.":goto5300
  144. 5070 ifpeek(53247)=1thenprint"tape : ca. 09 min. 30 sec."
  145. 5090 print"[159]                         bis dann,"
  146. 5100 print"                                  servus"
  147. 5110 print:forf=1to3500:nextf:goto5500
  148. 5300 print"[144]new:"
  149. 5310 print"load";chr$(34);"red planet main";chr$(34);",8"
  150. 5320 print"run:"
  151. 5330 print"[145][145][145][145][145][145][145][145][145][145][145][145][145]"
  152. 5340 poke198,0:poke632,13:poke633,13:poke634,13:poke631,13
  153. 5350 poke198,4:stop
  154. 5500 print"[144][145]new:"
  155. 5510 print"load:"
  156. 5520 print"[145][145][145][145][145][145][145][145]":
  157. 5525 forf=56255to56294:pokef,1:nextf
  158. 5530 poke631,13:poke632,13:poke633,82:poke634,85:poke635,78:poke636,58
  159. 5540 poke637,13:poke638,3:poke198,8
  160. 5900 end
  161. 10000 rem *****************************
  162. 10010 rem ********* anleitung *********
  163. 10020 rem *****************************
  164. 10025 gosub10030:goto10060
  165. 10030 print"[147][150]             the red planet"
  166. 10040 print"             [184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  167. 10050 print:print"[159]               anleitung":return
  168. 10060 print"  deine freundin befindet sich auf dem"
  169. 10070 print"roten planeten und weiss nicht, wie sie"
  170. 10080 print"  wieder heimkommen soll, denn sie hat"
  171. 10090 print"kein geld mehr, um ein space-taxi zu be-";
  172. 10100 print"                stellen."
  173. 10110 print"  natuerlich hast du davon erfahren und"
  174. 10120 print"         wirst sie heimfliegen."
  175. 10130 print"   leider musst du dabei durch mehrere"
  176. 10140 print"   fremde territorien hindurchfliegen."
  177. 10150 print"die wesen,denen diese galaxien gehoeren,";
  178. 10160 print"  beginnen sofort zu schiessen, und es"
  179. 10170 print"kommt zu einem kampf auf leben und tod."
  180. 10180 print" hast du genuegend wesen erwischt, be-"
  181. 10190 print"    kommt der rest angst und flieht."
  182. 10195 gosub10500:gosub10030
  183. 10200 print"    dann kannst du weiterfliegen und"
  184. 10210 print"naeherst dich dem roten planeten wieder";
  185. 10220 print" um ein stueck, was du daran erkennst,"
  186. 10230 print"         dass er groesser wird."
  187. 10240 print"nach mehreren runden landest du auf dem"
  188. 10250 print"roten planeten und kannst deine freundin";
  189. 10260 print"           endlich mitnehmen."
  190. 10270 print"im hauptteil, der noch nachgeladen wird,";
  191. 10280 print" befindet sich noch eine informations-"
  192. 10290 print"  seite zur steuerung und punktegebung."
  193. 10300 print"  viel spass beim spiel,"
  194. 10310 print"                        robert dillinger";
  195. 10490 gosub10500:goto1000
  196. 10500 print"[153]                fertig ?[146]";
  197. 10510 poke198,0
  198. 10520 geta$:ifa$<>""thenreturn
  199. 10530 goto10520
  200. 10900 stop
  201. 19000 rem *****************************
  202. 19010 rem ****** 'warten' meldung *****
  203. 19020 rem *****************************
  204. 19090 poke53280,0:poke53281,0:print"[147]"
  205. 19110 a$="   du musst jetzt ein bisschen warten   "
  206. 19115 hoehe=50:gosub19500
  207. 19120 a$="             ich lese gerade"
  208. 19125 gosub19500
  209. 19130 a$=n$:gosub19500
  210. 19200 a$="[154] gesamteinlesezeit: ca. 03 min. 20 sec."
  211. 19210 hoehe=30:gosub19500
  212. 19300 return
  213. 19500 rem ******* druckroutine ********
  214. 19510 forf=1tolen(a$):printleft$(a$,f);:print"[145]":gosub19600
  215. 19520 nextf:return
  216. 19600 rem **** ton zu druckroutine ****
  217. 19610 pokesid+4,32:forg=1topause:nextg:pokesid+1,hoehe:pokesid+5,3+5*16:
  218. 19620 pokesid+6,2+1:pokesid+24,15:pokesid+4,33
  219. 19690 return
  220. 20000 rem *****************************
  221. 20010 rem *********** datas ***********
  222. 20020 rem *****************************
  223. 20030 rem *****************************
  224. 20040 rem ******** zeichensatz ********
  225. 20050 rem *****************************
  226. 21000 data0,24,60,102,102,60,24,0
  227. 21010 data0,24,60,126,127,60,24,0
  228. 21020 data0,0,48,48,0,24,24,0
  229. 21030 data0,12,12,0,0,0,0,0
  230. 21040 data0,0,0,0,0,0,24,24
  231. 21050 data0,0,0,48,0,0,0,0
  232. 21060 data0,0,4,4,0,0,0,0
  233. 21070 data0,0,194,0,0,0,0,0
  234. 21080 data0,32,0,0,0,0,4,0
  235. 21090 data0,0,0,16,0,0,0,0
  236. 21100 data1,3,31,63,63,63,127,255
  237. 21110 data128,192,224,248,252,252,254,254
  238. 21120 data127,63,63,63,31,15,3,0
  239. 21130 data254,251,252,252,248,192,128,0
  240. 21140 data0,0,0,0,3,7,15,15
  241. 21150 data0,0,24,255,255,255,223,255
  242. 21160 data0,0,0,128,192,224,240,240
  243. 21170 data15,15,31,63,63,29,31,31
  244. 21180 data255,251,255,223,255,255,255,255
  245. 21190 data240,248,248,252,252,248,248,248
  246. 21200 data31,15,15,7,1,0,0,0
  247. 21210 data255,255,255,255,255,24,0,0
  248. 21220 data248,240,240,192,0,0,0,0
  249. 21230 data60,66,157,161,161,157,66,60
  250. 21500 data0,0,0,1,3,3,15,31
  251. 21510 data3,31,127,255,255,255,255,255
  252. 21520 data192,240,252,254,255,255,255,255
  253. 21530 data0,0,0,0,128,192,240,240
  254. 21540 data31,31,31,31,63,127,255,255
  255. 21550 data248,252,252,254,254,255,255,255
  256. 21560 data255,255,255,255,255,255,63,63
  257. 21570 data255,255,255,255,254,254,252,248
  258. 21580 data31,15,15,3,1,0,0,0
  259. 21590 data255,255,255,255,255,127,15,7
  260. 21600 data255,255,255,255,255,254,248,224
  261. 21610 data240,176,128,128,0,0,0,0
  262. 22000 rem *****************************
  263. 22010 rem ********** sprites **********
  264. 22020 rem *****************************
  265. 22030 rem *****************************
  266. 22040 rem ***** einfarbige sprites ****
  267. 22050 rem *****************************
  268. 23000 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0
  269. 23010 data0,24,0,0,60,0,0,60
  270. 23015 data0,32,60,4,48,126
  271. 23020 data12,48,126,12,48,126,12,48,126,12,62
  272. 23030 data126,124,63,255,252,63,255,252,62,126
  273. 23040 data124,56,126,28,48,126,12,32,0,4,99,0
  274. 23050 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0
  275. 23060 data24,0,0,60,0,0,60
  276. 23065 data0,8,60,16,12,126,48
  277. 23070 data12,126,48,12,126,48,14,126,112,14,126
  278. 23080 data112,14,126,112,15,255,240,15,255,240
  279. 23090 data14,126,112,12
  280. 23095 data126,48,8,0,16,99,0,0,0
  281. 23100 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  282. 23110 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  283. 23120 data0,0,0,0,24,0,0,24,0,0,24,0,0,24,0,0
  284. 23130 data24,0,0,24,0,0,24
  285. 23135 data0,99,0,0,0,0,0,0,0
  286. 23140 data0,0,0,0,0,0,0,0,96,0,6,96,0,6,96,0,6
  287. 23150 data99,0,198,99,0,198,99,0,198,99,0,198
  288. 23160 data99,24,198,99,24
  289. 23165 data198,3,24,192,3,24,192
  290. 23170 data3,24,192,0,24,0,0,24,0,0,24,0,0,24,0
  291. 23180 data99,192,0,3,192,0
  292. 23185 data3,192,0,3,192,0,3,192
  293. 23190 data0,3,192,0,3,192,0,3,192,0,3,192,0,3
  294. 23200 data0,0,0,0,0,0,0,0,0,192,0,3,192,0,3,192
  295. 23210 data0,3,192,0,3,192,0,3,192,0,3,192,0,3
  296. 23220 data192,0,3,192,0,3,99,0,0,0,0,0,0,0,0,0
  297. 23230 data0,0,0,0,0,0,0,0,0,0,0,0,248,0,31,199
  298. 23240 data224,32,64,128
  299. 23245 data225,98,182,129,102,199
  300. 23250 data134,114,64,140,10,97,132,58,19,68,12
  301. 23260 data18,28,24,0,31,17,168,3,53,126,66,62
  302. 23270 data193,59,252,17,207,99,0,0,0,0,0,0,0,0
  303. 23280 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  304. 23290 data0,0,0,0,0,32,0,0,68,0,25,144,108,15
  305. 23300 data100,88,85,166,164,32
  306. 23305 data4,56,36,180,134
  307. 23310 data5,162,191,32,173,166,79,212,217,195
  308. 23320 data2,26,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  309. 23330 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  310. 23340 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,112,0,3
  311. 23350 data250,0,7,255,128
  312. 23355 data31,255,240,127,255,252
  313. 23360 data255,255,255,99,0,0,0,0,0,0,0,0,0,0,0
  314. 23370 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  315. 23380 data0,0,0,0,1,240,0,1,8,0,1,4,0,49,2,0,123
  316. 23390 data1,1,255,255,130,187,187,252,68,68,254
  317. 23400 data170,170,2,68,68
  318. 23405 data3,99,0,0,0,0,0,0,0,0
  319. 23410 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  320. 23420 data0,0,0,0,8,129,16,7,0,224,2,0,64,7,0
  321. 23430 data224,7,0,224,15,129,240,15,129,240,15
  322. 23440 data129,240,7,0,224,7,0,224,2,0,64,99
  323. 24000 rem *****************************
  324. 24010 rem **** multicolor sprites *****
  325. 24020 rem *****************************
  326. 25000 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  327. 25010 data0,0,0,0,0,0,2,130,128,2,65,128,2,0,128
  328. 25020 data3,255,192,47,255
  329. 25025 data248,143,255,242,15
  330. 25030 data85,240,13,0,112,15,85,240,3,255,192
  331. 25040 data1,0,64,4,0,16,20,0,20,99,0,0,0,0,0,0
  332. 25050 data0,0,0,0,0,0,32,0,8,8,0,32,2,0,128,2
  333. 25060 data0,128,2,0,128,2,0
  334. 25065 data128,2,130,128,1,85
  335. 25070 data64,7,215,208,21,85,84,21,85,84,21,170
  336. 25080 data84,5,85,80,1,85,64,3,0,192,60,0,60,192
  337. 25090 data0,3,99,0,0,0,2,130,128
  338. 25095 data2,0,128,2,0,128
  339. 25100 data3,255,192,3,60,192,0,255,0,0,195,0,0
  340. 25110 data60,0,0,60,0,0,170,0,5,170,80,6,170,144
  341. 25120 data2,170,128,2,170,128,0
  342. 25125 data170,0,0,170,0
  343. 25130 data0,65,0,0,65,0,0,65,0,1,65,64,99,0,0
  344. 25140 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  345. 25150 data0,0,0,0,21,85,80
  346. 25155 data16,0,16,16,0,16,19
  347. 25160 data255,16,19,3,16,19,35,16,19,3,16,19,255
  348. 25170 data16,16,0,16,16,0,16
  349. 25175 data21,85,80,0,0,0,0
  350. 25180 data0,0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  351. 25190 data0,0,0,0,0,0,0,0,0,0,0,0,0,40,0,0,130
  352. 25200 data0,2,60,128,8,195
  353. 25205 data32,35,20,200,140,65
  354. 25210 data50,35,20,200,8,195,32,2,60,128,0,130
  355. 25220 data0,0,40,0,0,0,0,99,0,0,0,0,0,0,0,0,0
  356. 25230 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128
  357. 25240 data0,0,0,0,0
  358. 25245 data16,64,16,8,12,2,0,0,0,3,0
  359. 25250 data0,128,0,16,0,0,0,0,128,12,16,0,0,0,0
  360. 25260 data0,0,0,0,0,0,99,5,0,80,1,0,64,1,0,64
  361. 25270 data0,65,0,0,65,0,0,65
  362. 25275 data0,3,195,192,14,190
  363. 25280 data176,14,190,176,14,190,176,15,255,240
  364. 25290 data3,255,192,3,0,192,3,255,192,0,255,0
  365. 25300 data0,65,0,0,65,0,0
  366. 25305 data65,0,1,0,64,1,0,64,5
  367. 25310 data0,80,99,15,0,48,3,0,192,0,0,192,0,192
  368. 25320 data0,0,195,0,0,195,0,0,0,0,0,128,128,0
  369. 25330 data130,0,0,0,64,0,65
  370. 25335 data0,1,0,64,1,17,0,0
  371. 25340 data69,0,0,0,0,0,195,0,0,192,0,0,3,0,3,0
  372. 25350 data192,3,0,0,12,0,240,99
  373. 26000 rem *****************************
  374. 26010 rem ****** nochmal sprites ******
  375. 26020 rem *****************************
  376. 26030 rem * (multicolor und normale ) *
  377. 26040 rem *****************************
  378. 27000 data0,90,0,0,36,0,0,90,0,0,165,0,0,102,0,1,24,128,0,165
  379. 27010 data0,2,90,64,2,129,64,4,36,32,2,66,64,8,0,16,1,0,128,0
  380. 27020 data66,0,16,0,8,0,0,0,0,16,0,32,0,4,0,0,0,0,0,0,0,0,0,99
  381. 27030 data0,126,0,0,165,0,1,36,128,0,66,0,2,129,64,4,36,32,1
  382. 27040 data36,128,2,0,64,0,66,0,8,129,16,16,0,8,1,0,128,0,0,0
  383. 27050 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99
  384. 27060 data2,0,64,0,0,0,2,0,64,1,0,128,1,66,128,0,66,0,4,66,32
  385. 27070 data2,66,64,2,0,64,2,0,64,0,0,0,1,24,128,0,153,0,0,153
  386. 27080 data0,8,0,16,4,0,32,4,36,32,0,36,0,2,36,64,2,36,64,1,36
  387. 27090 data128,99,0,0,0,249,197,60,130,42,160,187,234,188,138
  388. 27100 data40,160,250,40,188,0,0,0,0,0,0,250,47,188,138,40,36
  389. 27110 data138,47,188,137,72,40,248,143,164,0,0,0,0,0,0,0,0,0
  390. 27120 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99
  391. 27130 data0,0,0,0,0,0,0,0
  392. 27140 data0,0,0,0,0,0,0,0
  393. 27150 data0,0,0,0,0,0,40,0
  394. 27160 data0,170,0,10,170,160
  395. 27170 data42,170,168,41,105
  396. 27180 data104,41,105,104,11
  397. 27190 data235,224,58,170,172
  398. 27200 data194,170,131,194
  399. 27210 data40,131,195,170,195
  400. 27220 data12,170,48,12,40
  401. 27230 data48,0,40,0,99,0,0
  402. 27240 data0,0,0,0,0,0,0,0
  403. 27250 data0,0,0,0,0,0,0,0
  404. 27260 data0,0,0,0,0,0,0,0
  405. 27270 data0,0,0,0,9,1,0,0
  406. 27280 data79,8,0,0,0,8,128
  407. 27290 data128,0,2,0,192,0
  408. 27300 data0,194,32,128,0,0
  409. 27310 data3,12,130,48,0,0
  410. 27320 data0,0,8,0,99
  411. 27330 data0,0,0,0,0,0,8,0,16,0,0,0,0,0,0,4,0,32,0,0,0,0,0,0,33,0,132
  412. 27340 data16,0,8,8,0,16,4,129,32,2,129,64,4,66,32,8,66,16,16,66,8
  413. 27350 data32,90,4,0,153,0,0,153,0,0,24,0,0,24,0,99
  414. 27500 data0,216,0,3,254,0,2,2,0
  415. 27510 data6,3,0,2,2,0,2,2,0,6,3
  416. 27520 data0,0,0,0,0,0,0,0,0,0,0
  417. 27530 data0,0,0,0,0,0,0,0,0,0,0
  418. 27540 data0,0,0,0,0,0,0,0,0,0,0
  419. 27550 data0,0,0,0,0,136,0,1,140
  420. 27560 data0,99,0,0,0,0,0,0,0,248
  421. 27570 data0,0,168,0,0,248,0,0,136
  422. 27580 data0,0,248,0,0,32,0,0,0
  423. 27590 data0,0,0,0,0,0,0,0,0,0,48
  424. 27600 data0,96,0,0,0,0,0,0,0,0
  425. 27610 data0,0,0,0,0,0,0,0,0,0,0
  426. 27620 data0,0,0,0,0,99,0,0,0,0
  427. 27630 data0,0,0,0,0,0,0,0,0,0,0
  428. 27640 data0,0,0,0,0,0,0,0,0,1,252
  429. 27650 data0,3,254,0,7,39,0,13,37
  430. 27660 data128,1,252,0,0,248,0,0
  431. 27670 data112,0,0,248,0,1,252,0
  432. 27680 data3,254,0,7,255,0,0,0,0
  433. 27690 data0,0,0,99,2,144,0,7,248
  434. 27700 data0,2,12,0,0,8,0,0,8,0
  435. 27710 data0,12,0,0,8,0,0,0,0,0
  436. 27720 data0,0,0,0,0,0,0,0,0,0,0
  437. 27730 data0,0,0,0,0,0,0,0,0,0,0
  438. 27740 data0,0,160,0,0,160,0,0,160
  439. 27750 data0,0,160,0,1,224,0,99
  440. 27760 data0,144,0,1,248,0,1,12
  441. 27770 data0,0,8,0,0,8,0,0,8,0,0
  442. 27780 data12,0,0,8,0,0,0,0,0,0
  443. 27790 data0,0,0,0,0,0,0,0,0,0,0
  444. 27800 data0,0,0,0,0,0,0,0,0,80
  445. 27810 data0,0,80,0,0,80,0,0,80
  446. 27820 data0,0,240,0,99,0,0,0,0
  447. 27830 data0,0,0,240,0,0,176,0,0
  448. 27840 data240,0,1,240,0,0,208,0
  449. 27850 data0,16,0,0,240,0,0,32,0
  450. 27860 data0,0,0,12,0,0,0,0,0,0
  451. 27870 data0,0,0,0,0,0,0,0,0,0,0
  452. 27880 data0,0,0,0,0,0,0,0,0,0,0
  453. 27890 data0,99,0,0,0,0,0,0,0,0
  454. 27900 data0,0,0,0,0,0,0,0,0,0,0
  455. 27910 data0,0,0,0,0,0,0,0,0,0,0
  456. 27920 data0,240,0,0,240,0,6,240
  457. 27930 data0,3,240,0,0,240,0,0,240
  458. 27940 data0,0,0,0,0,0,0,0,0,0,0
  459. 27950 data0,0,0,0,0,99
  460. 30000 rem *****************************
  461. 30010 rem *** maschinencode - datas ***
  462. 30020 rem *****************************
  463. 31000 data76,49,192,0,255,0,0,0,0,255,230,24,24,255,255
  464. 31010 data255,255,255,0,0,255,255,0,255,0,255,0,255,255
  465. 31020 data255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,169
  466. 31030 data50,141,1,208,169,100,141,3,208,169,150,141,5,208
  467. 31040 data169,128,141,0,208,141,2,208,141,4,208,169,127
  468. 31050 data141,21,208,169,210,141,13,208,169,128,141,12,208
  469. 31060 data169,0,141,30,208,141,27,192,173,24,192,24,105
  470. 31070 data1,205,25,192,240,6,141,24,192,76,35,193,169,0
  471. 31080 data141,24,192,174,26,192,32,244,195,32,151,192,174
  472. 31090 data26,192,224,2,240,7,232,142,26,192,76,35,193,162
  473. 31100 data0,142,26,192,76,35,193,173,43,192,74,74,74,74
  474. 31110 data74,74,201,0,240,12,197,1,240,67,201,2,240,30,201
  475. 31120 data3,240,85,32,228,192,189,0,208,205,10,192,240,7
  476. 31130 data24,105,1,157,0,208,96,169,24,157,0,208,76,193
  477. 31140 data192,32,228,192,189,0,208,205,11,192,240,7,56,233
  478. 31150 data1,157,0,208,96,169,255,157,0,208,76,219,192,138
  479. 31160 data10,24,105,1,170,96,32,31,193,189,0,208,205,13
  480. 31170 data192,240,7,24,105,1,157,0,208,96,169,0,157,0,208
  481. 31180 data76,252,192,32,31,193,189,0,208,205,12,192,240
  482. 31190 data7,56,233,1,157,0,208,96,169,255,157,0,208,76,22
  483. 31200 data193,138,10,170,96,173,18,192,205,17,192,240,9
  484. 31210 data24,105,1,141,18,192,76,198,193,169,0,141,18,192
  485. 31220 data160,0,140,16,192,185,5,192,201,1,240,16,208,62
  486. 31230 data172,16,192,200,140,16,192,192,3,240,116,76,62
  487. 31240 data193,173,8,192,205,9,192,240,9,24,105,1,141,8,192
  488. 31250 data76,71,193,152,170,10,105,1,168,185,6,208,205,14
  489. 31260 data192,240,9,24,105,1,153,6,208,76,71,193,169,0,157
  490. 31270 data5,192,76,71,193,173,43,192,174,15,192,202,74,224
  491. 31280 data0,240,3,76,139,193,201,0,240,3,76,71,193,32,116
  492. 31290 data196,172,16,192,169,1,153,5,192,152,10,168,185
  493. 31300 data0,208,153,6,208,172,16,192,152,10,24,105,1,168
  494. 31310 data185,0,208,24,105,21,176,135,153,6,208,76,71,193
  495. 31320 data173,19,192,205,20,192,240,9,24,105,1,141,19,192
  496. 31330 data76,76,194,169,0,141,19,192,173,0,220,73,255,41
  497. 31340 data4,201,4,240,25,173,0,220,73,255,41,8,201,8,240
  498. 31350 data33,173,0,220,73,255,41,16,201,16,240,41,76,76
  499. 31360 data194,173,12,208,201,24,240,235,32,103,194,56,233
  500. 31370 data1,141,12,208,76,242,193,173,12,208,201,255,240
  501. 31380 data216,32,103,194,24,105,1,141,12,208,76,242,193
  502. 31390 data173,14,208,201,0,208,31,240,0,173,21,208,9,128
  503. 31400 data141,21,208,32,21,195,173,12,208,141,14,208,173
  504. 31410 data13,208,56,233,21,141,15,208,76,76,194,165,203
  505. 31420 data201,4,240,9,165,203,201,3,240,9,76,139,194,169
  506. 31430 data1,141,21,192,96,169,2,141,21,192,96,174,31,192
  507. 31440 data236,32,192,240,4,238,31,192,96,162,0,142,31,192
  508. 31450 data174,254,135,224,128,240,6,162,128,142,254,135
  509. 31460 data96,162,129,142,254,135,96,173,22,192,205,23,192
  510. 31470 data240,9,24,105,1,141,22,192,76,185,194,169,0,141
  511. 31480 data22,192,173,15,208,201,0,240,9,56,233,1,141,15
  512. 31490 data208,76,185,194,169,0,141,14,208,76,185,194,173
  513. 31500 data30,208,141,27,192,41,64,208,10,173,27,192,41,128
  514. 31510 data208,10,76,128,195,234,169,3,141,21,192,96,173
  515. 31520 data27,192,41,7,208,3,76,128,195,173,27,192,41,7,74
  516. 31530 data170,189,248,135,205,38,192,240,3,76,98,192,32
  517. 31540 data52,195,32,83,195,173,21,208,41,127,141,21,208
  518. 31550 data169,0,141,14,208,173,27,192,41,7,74,170,169,1
  519. 31560 data157,33,192,238,36,192,76,98,192,169,32,141,4,212
  520. 31570 data169,10,141,1,212,169,38,141,5,212,169,0,141,6
  521. 31580 data212,169,15,141,24,212,169,33,141,4,212,96,169
  522. 31590 data16,141,11,212,169,7,141,8,212,169,106,141,12,212
  523. 31600 data169,15,141,13,212,169,15,141,24,212,169,17,141
  524. 31610 data11,212,96,173,28,192,24,109,30,192,176,7,141,28
  525. 31620 data192,32,110,195,96,238,29,192,141,28,192,24,32
  526. 31630 data110,195,96,162,4,160,33,24,32,240,255,173,29,192
  527. 31640 data174,28,192,32,205,189,96,162,0,189,33,192,201
  528. 31650 data1,240,8,232,224,3,240,99,76,130,195,189,46,192
  529. 31660 data205,42,192,240,41,173,37,192,157,248,135,234,189
  530. 31670 data39,192,24,105,1,157,39,192,201,255,240,4,234,76
  531. 31680 data137,195,189,46,192,24,105,1,157,46,192,205,42
  532. 31690 data192,240,3,76,130,195,173,38,192,157,248,135,169
  533. 31700 data0,157,33,192,157,46,192,157,39,192,32,244,195
  534. 31710 data138,10,168,173,43,192,153,0,208,32,244,195,138
  535. 31720 data10,24,105,1,168,173,43,192,153,0,208,76,137,195
  536. 31730 data76,99,196,172,44,192,173,0,216,233,50,24,192,1
  537. 31740 data240,74,173,0,216,109,16,216,24,13,3,216,45,7,216
  538. 31750 data9,43,192,2,240,55,173,53,216,45,32,216,77,48,216
  539. 31760 data9,64,192,3,240,40,173,7,216,77,39,216,9,64,13
  540. 31770 data0,216,192,4,240,25,173,32,216,74,74,74,74,74,74
  541. 31780 data201,1,240,16,201,0,240,17,201,2,240,18,201,3,240
  542. 31790 data19,141,43,192,96,160,1,76,247,195,160,2,76,1,196
  543. 31800 data160,3,76,20,196,160,4,76,35,196,173,36,192,205
  544. 31810 data45,192,16,3,76,98,192,169,4,141,21,192,96,169
  545. 31820 data64,141,18,212,169,3,141,15,212,169,170,141,14
  546. 31830 data212,169,106,141,19,212,169,6,141,20,212,169,100
  547. 31840 data141,17,212,169,15,141,24,212,169,65,141,18,212
  548. 31850 data96,255
  549.